home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / demos / a6 / a6.dir / 00022_VOL UP toggle.ls < prev    next >
Encoding:
Text File  |  1996-08-19  |  331 b   |  15 lines
  1. on mouseDown
  2.   puppetSprite(36, 1)
  3.   set the memberNum of sprite 36 to the number of member "VOL UP ON"
  4.   updateStage()
  5. end
  6.  
  7. on mouseUp
  8.   set the memberNum of sprite 36 to the number of member "VOL UP OFF"
  9.   if the soundLevel < 7 then
  10.     set the soundLevel to the soundLevel + 1
  11.   end if
  12.   updateStage()
  13.   puppetSprite(36, 0)
  14. end
  15.